(Fcopy_file): Use set_file_times, and check for the error return.

diff --git a/src/fileio.c b/src/fileio.c
index 1274694c8ce2b76f5dacd5372dfe1a2aa4333842..299eb2d2609fd0920807b4a0ae7eebae930c7346 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -1836,7 +1836,8 @@ A prefix arg makes KEEP-TIME non-nil.")
          EMACS_TIME atime, mtime;
          EMACS_SET_SECS_USECS (atime, st.st_atime, 0);
          EMACS_SET_SECS_USECS (mtime, st.st_mtime, 0);
-         EMACS_SET_UTIMES (XSTRING (newname)->data, atime, mtime);
+         if (set_file_times (XSTRING (newname)->data, atime, mtime))
+           report_file_error ("I/O error", Fcons (newname, Qnil));
        }
 #ifdef APOLLO
       if (!egetenv ("USE_DOMAIN_ACLS"))